home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 10 / BBS In A Box Volume X (AMUG) (January 1994).bin / Files / Prog / U-Z / ViewIt 2.2 Shareware.cpt / ViewIt™ 2.2 Shareware / Projects / THINK Pascal 4.0.2 Demos / MinimumLP.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-14  |  270 b   |  16 lines  |  [TEXT/PJMM]
  1. {Minimum LP Demonstration Program}
  2. {©FaceWare 1991-93.  All Rights Reserved.}
  3.  
  4. program MinimumLP;
  5. {$I-}
  6.  
  7.     uses
  8.         FaceStorLP, FaceProcLP;
  9.  
  10. begin
  11.     fRec.uName := 'Minimum.Rsrc';
  12.     FaceIt(nil, DoInit, 0, 0, 0, 0);
  13.     repeat
  14.         FaceIt(nil, DoLoop, 0, 0, 0, 0);
  15.     until false;
  16. end.